home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
children
/
fdplot13.exe
/
ELLIPSA.BAS
next >
Wrap
BASIC Source File
|
1991-11-04
|
486b
|
12 lines
100 REM ELLIPSOID SURFACE AREA CALCULATION
101 PI=3.141592654
105 CLS: PRINT "Ellipsoid surface area calculation":print
110 INPUT"Enter LONG, SHORT diameter of 'egg' (or 0,0 to exit) ";L,T
120 IF L=0 OR T=0 THEN CHAIN "MENU"
130 A=L/2:B=T/2:BE=B/A:B2=BE^2
140 IF (B/A-1.001)*(0.999-B/A)>0 THEN SA=B/A+1 ELSE SA=B/A+ATN(SQR(1/B2-1))/SQR(1-B2)
150 SA=2*PI*B*A*SA
160 PRINT: PRINT"Corresponding surface area is";SA
170 PRINT: INPUT "Press ─┘ when ready";A$
180 CHAIN "MENU"